;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(defun c:getlisp ()
  (if ustr nil (load "ustr" "\nFile USTR.LSP not loaded! "))
  (setq srchname (ustr 1 "" "Enter file search string" srchname))
  (if (wcmatch srchname "*`.*")
    (setq srchstring srchname)
    (setq srchstring (strcat srchname ".lsp"))
  )
  (dos_dir (strcat "L:/Util/Lsp/" srchstring))
)